#!/usr/bin/perl

use strict;

use fdstools;

my $blah = fdstools->new(  prompt_bindpw => "1");



$blah->add_rep_user("fdsserver0.example.com");
$blah->add_rep_user("fdsserver1.example.com");
$blah->add_changelog("fdsserver0.example.com");
$blah->add_changelog("fdsserver1.example.com");
$blah->add_replica_object("fdsserver0.example.com" ,"1");
$blah->add_replica_object("fdsserver1.example.com" ,"1");
$blah->add_rep_agreement("fdsserver0.example.com" ,"1" ,"fdsserver1.example.com", "636");
$blah->add_rep_agreement("fdsserver1.example.com" ,"1" ,"fdsserver0.example.com", "636");	
$blah->init_replication("fdsserver0.example.com","fdsserver1.example.com");


